home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9112a.d64
/
listing 1
< prev
next >
Wrap
Text File
|
1995-03-30
|
1KB
|
59 lines
Listing 1:
sei ;Interrupt-Flag setzen
lda #<neuirq ;IRQ-Vektor
ldx #>neuirq ;auf neue
sta $0314 ;Routine
stx $0315 ;verbiegen
lda #$7f ;Timer-Interrupt
sta $dc0d ;verhindern
lda #$01 ;Raster-Interrupt
sta $d01a ;zulassen
lda #$28 ;Raster-Zeile
sta $d012 ;definieren
lda $d011 ;Bit8
and #$7f ;löschen
sta $d011
lda #$00 ;Geisterbyte
sta $3fff ;löschen
cli ;Interrupt-Flag löschen
rts
:neuirqlda $d019 ;Register $d019
sta $d019 ;löschen
ldx #$00 ;Zähler auf null setzen
lda #$19 ;Raster-Zeile
:waitzeilecmp $d012 ;abwarten
bcs waitzeile
ldy #$0c ;Verzögerung
:wait1dey
bne wait1
lda #$10 ;exaktes Timing
sta $d011 ;initialisieren
ldy #$20 ;Verzögerung
:wait2dey
bne wait2
bit $c0
bit $c0
:labelldy $d012;FLD-Trick !!!
dey
tya
and #$07
ora #$10
sta $d011
lda farbe,x ;Farbwerte setzen
sta $d020
sta $d021
ror $ffff,x ;Verzögerung
ror $ffff,x
ror $ffff,x
ror $ffff,x
inx
cpx #$16 ;22 Zeilen
bne label ;eingefärbt?
jmp $ea81
:farbe.b 15,0,6,14,15,6,14,3,15,6,14
.b 3,1,15,6,13,3,1,3,14,6,0